prolog './gspo.ijs'
NB. o. ------------------------------------------------------------------

(scheck o. $.x), (o. -: o.&.$.) x=:     _10+?    405$2
(scheck o. $.x), (o. -: o.&.$.) x=:     _10+?  3 4 5$21
(scheck o. $.x), (o. -: o.&.$.) x=:   o._10+?  3 4 5$21
(scheck o. $.x), (o. -: o.&.$.) x=:j./o._10+?2 3 4 5$21

0 -: 3 $. o. $. 0 1 0
0 -: 3 $. o. $. 2 3 4
0 -: 3 $. o. $. 2 3.4
0 -: 3 $. o. $. 2 3j4

f=: 4 : '(p o. q) -: ((2;x)$.p) o. (2;y)$.q'

p=: ?7 5 3$2
q=: ?7 5 3$2
c=: ; (i.1+r) <"1@comb&.>r=:#$p
f&>/~c

p=: ?7 5 3$8
q=: ?7 5 3$4
c=: ; (i.1+r) <"1@comb&.>r=:#$p
f&>/~c

p=:   ?7 5 3$8
q=: o.?7 5 3$4
c=: ; (i.1+r) <"1@comb&.>r=:#$p
f&>/~c

p=:    ?  7 5 3$8
q=: j./?2 7 5 3$4
c=: ; (i.1+r) <"1@comb&.>r=:#$p
f&>/~c





epilog''

